(where-is): Fail gracefully when not passed a command.

diff --git a/lisp/help.el b/lisp/help.el
index 8aa9ba6c46b13a9d6fdf4d3b391c625c2f8d6350..d0783dd0351cb644ade431b3fa187e09db243066 100644 (file)
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -491,6 +491,7 @@ If INSERT (the prefix arg) is non-nil, insert the message in the buffer."
                  "Where is command: ")
                obarray 'commandp t))
      (list (if (equal val "") fn (intern val)) current-prefix-arg)))
+  (unless definition (error "No command"))
   (let ((func (indirect-function definition))
         (defs nil)
         (standard-output (if insert (current-buffer) t)))